00100 R LISP 60↔ 00200 Y3000 14300 475↔ 00300 (DSKIN (COMPLR . LAP))↔ 00400 (CINIT)↔ 00500 λ 00600 SAVE COMPLR↔ 00700